home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_500 / wiconify / wiconsetter.lzh / wIconSetter / Source / wStubs.a < prev   
Text File  |  1991-04-19  |  2KB  |  48 lines
  1.         CSECT       text
  2.  
  3.         XREF        _cOpenWindow
  4.         XREF        _OldOpenWindow
  5.         XREF        _cSetWindowTitles
  6.         XREF        _OldSetWindowTitles
  7.         XREF        _cOpenScreen
  8.         XREF        _OldOpenScreen
  9.  
  10.         XDEF        _aOpenWindow
  11.         XDEF        _aSetWindowTitles
  12.         XDEF        _aOpenScreen
  13.  
  14.  
  15. _aOpenWindow:
  16.         MOVE.L      _OldOpenWindow,A1       ; move old address to A1
  17.         JSR         (A1)                    ; JSR to old OpenWindow routine
  18.         MOVEM.L     D0-D7/A0-A6,-(SP)       ; save registers on stack
  19.         MOVE.L      D0,-(SP)                ; push Window pointer
  20.         JSR         _cOpenWindow            ; call our C OpenWindow
  21.         ADDQ.L      #4,SP                   ; pop the pointer
  22.         MOVEM.L     (SP)+,D0-D7/A0-A6       ; restore registers
  23.         RTS
  24.  
  25. _aSetWindowTitles:
  26.         MOVEM.L     D2-D7/A0-A6,-(SP)      ; save registers on stack
  27.         MOVE.L      A2,-(SP)               ; push Screen Title pointer
  28.         MOVE.L      A1,-(SP)               ; push Window Title pointer
  29.         MOVE.L      A0,-(SP)               ; push Window pointer
  30.         MOVE.L      _OldSetWindowTitles,A3 ; move old address to A3
  31.         JSR         (A3)                   ; JMP to old SetWindwoTitles routine
  32.         JSR         _cSetWindowTitles      ; call our C SetWindowTitles
  33.         ADD.L       #12,SP                 ; pop the pointers
  34.         MOVEM.L     (SP)+,D2-D7/A0-A6      ; restore registers
  35.         RTS
  36.  
  37. _aOpenScreen:
  38.         MOVE.L      _OldOpenScreen,A1      ; move old address to A1
  39.         JSR         (A1)                   ; JMP to old OpenScreen routine
  40.         MOVEM.L     D0-D7/A0-A6,-(SP)      ; save registers on stack
  41.         MOVE.L      D0,-(SP)               ; push the new Screen pointer
  42.         JSR         _cOpenScreen           ; call our C OpenScreen
  43.         ADDQ.L      #4,SP                  ; pop the pointer
  44.         MOVEM.L     (SP)+,D0-D7/A0-A6      ; restore registers
  45.         RTS
  46.  
  47.         END
  48.